home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 135
/
Tiger_Disk_135_20xx_Tiger-Crew-Disk_de_Side_A.d64
/
miss marple
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
31KB
|
1,065 lines
0 rem"[141][147]*miss marple*[141]*block i:raumzeichnen*
1 [156]:[151]53280,6:[151]53281,6:[153]"loadcont"[199](9)[199](142)[199](8):[137]21200
2 fe[178]1:lo[178]0:kl[178]0:tz[178]0:gg[178]0:gi[178]1:si[178]1:bo[178]1:tr[178]0:co[178][181]([187](45)[172]9000)[170]1000:pa[178]0
3 sf[178]2:hu[178]1:v[178]53248:[151]v[170]21,0
4 fl[178]0:fi[178]1:ws$[178]""
5 [137] 17000
10 mo[178]mo(x,y,z):tt[178]tt(x,y,z):[139]z[178]5[167]5000
11 [139]x[178]2[175]y[178]4[175]z[178]1[167][141]21000
12 [153]"load":[151]v[170]21,0
13 [139]si[178]1[176](gg[175]2)[178]2[167][137]18
14 [139](ge(x,y,z)[175]2)[178]2[167][137]18
15 [153]"contes ist dunkel !"
17 [151]53281,0:[151]53280,0:[137]3000
18 ws$[178]"":[139]si[178]0[167]ws$[178]"cont"
19 [151]53281,6:[151]53280,6
20 [129]q[178]1[164]5:[153][163]q)"(NULL)";:[153][163]39[171]q)"(NULL)":[130]
25 [153]"on andandandandandandandandandandandandandandandandandandandandandandandandandandandand"
30 [129]q[178]1[164]10:[153][163]5)"+";:[153][163]34)"sgn":[130]
40 [153]" usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusron"
50 [129]q[178]5[164]1[169][171]1:[153][163]q)"(NULL)";:[153][163]39[171]q)"(NULL)":[130]
60 [129]q[178]0[164]7
61 [139] q[178]7[167] [153]""
62 [139]q[178]7[167] [153][163]17)"(NULL)>right$cmdcmd"ws$"usrcont"
70 [139](tt [175]2[174]q)[178]2[174]q[167][137]100
80 [130]q
81 [139]x[178]2[175]y[178]1[175]z[178]1[175]pa[178]0[167]pa[178]1
82 [139]pa[178][171]1[167]ge(2,1,1)[178](ge(2,1,1)[175][168]128)
83 [139]pa[178]1[175](x[179][177]2[176]y[179][177]1[176]z[179][177]1)[167][153]"der papagei ist sehr anhaenglich"
84 [137]8000
85 [137]10000
86 [139]a$[178]"o"[175]x[178]3[175]y[178]3[175]z[178]2[167][137]8900
87 [139]x[178]2[175]y[178]2[175]z[178]4[167][137]9000
88 [139]x[178]1[175]y[178]1[175]z[178]1[167][137]9030
89 [139]x[178]2[175]y[178]4[175]z[178]1[167][141]21030
90 [137]3000
95 [143]"gosub*block ia:unterprogramme tueren*
100 onqgoto80,400,300,600,500,700,900
200 print""
210 printtab(14)"[205] [206][146]"
211 printtab(14)" [146]"
212 printtab(14)" [146]"
213 printtab(14)" [146]"
214 printtab(14)" [146]"
215 printtab(14)" [146]"
216 printtab(14)" [146]"
217 printtab(14)" [146]"
218 printtab(14)" [146]"
220 printtab(15)" "
250 goto80
300 print""
310 print" [223]"
311 print" [223][146]"
312 print" [223] [223][146]"
316 print" [223][206][146]"
318 ifx=1thengoto350
320 foro=1to9:print" [146]":nexto
330 print" [169]"
331 print" "
332 print" "
340 goto80
350 print" [146]"
351 print" [146]"
352 print" [146]"
353 print" [146]"
355 print" [169][205][146]"
356 print" [169] [146][169]"
357 print" [146][169]"
358 print" [169][145][145][145][145][145][145][145][145][145][145][145][157][157][167][157][167]"
370 goto80
400 print""
410 printtab(36)"[169]"
420 printtab(36)"[169] "
421 printtab(36)"[169] [146][169]"
422 printtab(36)"[205][146][169][157]"
425 foro=1to9:printtab(36)" [146]":nexto
431 printtab(36)"[223]"
432 printtab(36)" "
433 printtab(36)" "
440 goto80
500 print""
510 printtab(27)"[175][175][175][175][175][175]"
511 printtab(27)"[205] [205] [205]"
512 printtab(27)" [183][183][183][183][183][183]"
520 goto80
600 print""
610 printtab(27)" [175][175][175][175][175][175]
611 [153][163]27)"(NULL)spc(spc(andandand(NULL)
612 printtab(27)"[180][166][166][166]
613 [153][163]27)"sgnspc(spc(spc(spc(
614 printtab(27)"[180][166][166][166][166][166]
615 [153][163]27)"sgnspc(spc(spc(spc(spc(spc(
616 printtab(27)"[180][166][166][166][166][166][166][223][223][146]"
617 printtab(27)"[180][166][166][166][166][166][223][223][146][166]"
618 printtab(27)"[180][166][166][166][166][223][223][146][166][166]"
619 printtab(27)"[180][166][166][166][223][223][146][166][166][166]"
620 printtab(27)"[180][166][166][223][223][146][166][166][166][166]"
621 printtab(27)"[180][166][223][223][146][166][166][166][166][166]"
622 printtab(27)"[205][223][223][146][166][166][166][166][166][166]"
623 printtab(27)" [205][166][166][166][166][166][166][166]"
630 goto80
700 print""
710 print" [167][223]"
720 print" [167] [223]"
730 print" [167] "
740 print" [167] "
750 print" [167] "
760 print" [167] [206][206]"
770 print"[175][175][186][206][206][206][206]"
780 print"[175][186][175][186][206][206][206][206]"
790 print"[186][175][186][175][186][206][206][206][206]"
800 print"[175][186][175][186][175][186][206][206][146][169]"
810 print"[186][175][186][175][186][175][186][146][169]"
815 fe$="[169] ":iffe=1andy=1thenfe$="[206][193][193][193]"
820 print"[175][186][206]"fe$" [206]"
830 print"[186][186][206][164][164][164][164][164][206][206]"
840 print"[175][186][175][186][175][186][175][186][206][206]"
850 print"[186][175][186][144] [146][169][154][186][186][206][146][169]"
860 print"[175][186][186][144][146][169][154][175][186][146][169]"
870 goto80
900 print""
901 if lo<>1 then 905
902 forw=1to8:printtab(17)" [171][192][179] ":nextw:goto910
905 printtab(17)" [164][164][164]"
910 printtab(17)"[202][198][210][198][203]"
915 printtab(17)"[221]"
920 printtab(17)"[221]"
925 printtab(17)ws$"[193] [193] [193][154]"
930 printtab(17)"[221][213][219][201][221]"
935 printtab(17)"[202][203][218][202][203]"
940 goto80
1000 rem"[141]*block ii:daten*
1001 [131] 18,6,10,66,7,11,37,41,3,3,6,8,1,13,9,16
1010 [131] 36,10,130,66,2,3,5,11,3,7,12,11,5,15,12,41
1020 [131] 6,24,34,18,13,12,7,9,14,14,13,10,1,1,4,9
1025 [143] moebel*******
1030 [131]2,34,16,48,128,16,2,0,32,2,6,25,81,0,16,128
1040 [131]2,1,161,1,20,16,64,16,65,130,36,17,34,0,160,64
1050 [131]38,0,2,6,128,65,16,65,36,4,128,1,18,144,7,16
1055 [143] gegenstaende*****
1060 [131]0,128,16,0,0,0,0,0,0,0,0,0,0,0,0,64
1070 [131]0,0,0,0,4,0,2,0,0,0,0,0,0,0,0,0
1080 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0
1090 [143] papagei
1100 [131] 3,248,0,6,4,224,14,245,240,29,249,150,51,249,191,7,251,159,6,219
1110 [131]251,12,151,226,24,7,224,0,15,192,0,15,192,0,31,128,0,63,0,0,126,192
1111 [131]0,126,96,0,251,56,1,225,196,7,128,160,14,1,16,56,0,0,224,0,0
1112 [143] hund
1120 [131]0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,32,0,3,96,0,69,128,0,63,128,0
1130 [131]63,128,0,7,192,0,55,240,0,31,248,0,3,252,0,3,254,0,1,255,24,1,191,140
1140 [131]1,159,132,1,159,140,3,31,216,7,120,240
1149 [143] skorpion
1150 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,26,0,0,38,0,0,78,0,31,64,1,240
1160 [131]64,3,190,96,7,0,59,111,96,29,181,128,11,111,96,4,151,0,9,35,190
1170 [131]18,73,240,0,0,31,0,0,0,0,0,0
1175 [143] moerder1
1180 [131]0,0,0,0,48,0,0,60,0,8,127,128,4,255,128,3,255,128,0,143,48,1,0,192
1190 [131]1,102,128,1,36,128,7,8,224,31,8,248,61,64,188,57,60,156,120,185,30
1200 [131]112,65,14,240,62,15,227,247,199,255,255,255,255,255,255,255,247,255
1205 [143] m2
1210 [131]247,255,247,251,255,239,251,247,239,251,255,239,251,255,239
1220 [131]251,247,239,253,255,255,253,255,207,126,247,143,63,127,31
1230 [131]95,126,46,111,180,94,119,216,220,123,165,188,125,66,186,126,131,122
1231 [131]127,6,150,127,136,102,127,252,30,127,246,30,127,255,62
1234 [143] m3
1240 [131] 127,255,254
1245 [131] 127,247,254
1246 [131] 127,255,254
1247 [131] 127,255,254
1248 [131] 127,247,254
1249 [131] 127,255,254
1250 [131] 127,255,254
1251 [131] 127,255,254
1252 [131] 10,165,80
1253 [131] 10,165,80
1254 [131] 10,165,80
1255 [131] 10,165,80
1256 [131] 10,165,80
1257 [131] 10,165,80
1258 [131] 10,165,80
1260 [131] 15,231,240,3,195,192,7,231,224,15,102,240,30,0,120,0,0,0
1270 [143] lied
1280 [131]0,3,4455,2,4455,1,4455,2,4455,1,4455,1,4455,1,4455,2,4455,1,4455,2
1290 [131]3338,1,4455,1,5001,1,5613,4,5613,2.7,5001,1,5613,.3,5001,.3,4455,4
1300 [131]4455,2.7,5001,1,5613,.3,5001,.3,5613,4,5613,2.7,5001,1,5613,.3
1310 [131]5001,.3,4455,4,4455,1.8,3338,1,4455,1,5001,1,5298,4,5298,2.7,5001,1
1320 [131]5298,.3,5001,.3,4455,4,4455,2.7,5001,1,5613,.3,5001,.3,5613,4,5613,2.7
1330 [131]5001,1,5613,.3,5001,.3,4455,4,4455,1.7,3338,.9,4455,.9,5001,.9
1340 [131]5613,.9,4455,.9,3338,.9,5613,.9,4455,.9,3338,.9,5613,.9,4455,.9
1350 [131]5001,.3,5613,.3,5001,.3,4205,.3,3338,.9,5001,.9,4205,.9,3338,.9
1360 [131]5001,.9,4205,.9,4455,.9,3338,.9,2807,.9,4455,.9,3746,.9,2974,.9
1370 [131]2500,.9,2228,.9
1380 [131]2103,.2,2228,.2
1390 [131]2103,.2,2228,.2
1400 [131]2103,.2,2228,.2
1410 [131]1873,.5,2103,.5,2228,3,-1,-1,-1
1490 [143]"gosubunterprogramme
1500 print"[147]"
1510 print"[150]bei diesem riskanten unternehmen"
1520 print"sind sie vom tisch gefallen!"
1530 goto3263
1600 print"der kronleuchter haengt zu hoch !":goto3000
1610 print"ok ":goto3000
1900 rem"[141]block iii:daten einlesen
2000 [134]mo(5,5,5):[134]tt(5,5,5):[134]ge(5,5,5):[134]sp(3,62)
2001 [129] y[178]1[164]3:[129]z[178]1[164]4:[129]x[178]1[164]4:[135]tt(x,y,z):[130]x,z,y
2243 tt(1,1,5)[178]4:tt(4,0,2)[178]16:tt(2,4,1)[178]32:tt(2,2,5)[178]1:tt(4,1,5)[178]12:tt(3,1,5)[178]12
2244 tt(2,1,5)[178]12:[129]y[178]1[164]3:[129]z[178]1[164]4:[129]x[178]1[164]4:[135]mo(x,y,z):[130]x,z,y
2250 tt(5,1,5)[178]8
2321 [129] y[178]1[164]3:[129]z[178]1[164]4:[129]x[178]1[164]4:[135]ge(x,y,z):[130]x,z,y:ge(4,0,2)[178]8
2420 x[178]4:y[178]1:z[178]5
2500 [129] qw[178]0[164]62:[135]rq:[151]832[170]qw,rq:[130]qw
2510 [129]tr[178]0[164]62:[135]te:[151]896[170]tr,te:[130]tr
2520 [129]ui[178]0[164]62:[135]op:[151]960[170]ui,op:[130]ui
2550 [129]we[178]1[164]3:[129]ty[178]0[164]62:[135] sp(we,ty):[130]ty,we
2570 [134]hh(100):[134]ll(100):[134]dd(100)
2580 qy[178]0
2590 [135]hl:[135] dd(qy):hh(qy)[178][181](hl[173]256):ll(qy)[178]hl[171]256[172]hh(qy)
2600 [139]hh(qy)[178][171]1[167]2700
2610 qy[178]qy[170]1:[137]2590
2700 [137]17200
2990 [143]"gosubblock iv:befehlsauswertung
3000 ifpa=1andbr=1then3010
3001 ifx=2andy=4andz=1thengoto14500
3002 print""
3005 goto3115
3010 gg=ggandnot16:pa=-1:print"der papagei hat den brief geklaut":goto3001
3115 if(tt and 2)=2 thenprint"[145] s[146]ued ist moeglich"
3120 poke198,0:input" was jetzt ";a$:ifkl<>0andleft$(a$,7)<>"kletter"thenkl=0
3121 ifx=1andy=1andz=2anda$="o"then 3260
3122 ifx=2andy=1andz=2anda$="w"then 3260
3123 ifa$="r"andy=1andz=2andx=3then goto 3292
3124 ifx=1andy=3andz=3anda$="w"then7000
3125 ifx=1andy=3andz=2anda$="w"then7500
3126 ifx=4andy=1andz=4andsh=0anda$="s"thenprint"die haustuer ist verschlossen[145][145]"
3127 ifx=4andy=1andz=4andsh=0anda$="s"thengoto 3120
3128 ifx=1andy=1andz=4anda$="verschiebe regal"thentt(1,1,4)=5:goto10
3129 ifx=1andy=3andz=1andtz=0anda$="o"thenprint"tuer ist verschlossen":goto3000
3130 ifx=1andy=3andz=1and(ggand1)=1anda$="oeffne tuer"thentz=1:goto1610
3131 ifx=1andy=3andz=1and(ggand1)=1anda$="oeffne tuer"thentz=1:goto1610
3132 ifx=2andy=3andz=2anda$="o"thentt(3,3,2)=15
3133 ifx=4andy=2andz=3thenprint"[147]der skorpion hat sie toedlich gestochen":goto3263
3134 ifx=4andy=3andz=3and(ggand2)=2anda$="s"thengoto14000
3135 ifx=4andy=3andz=1anda$="h"then 31000
3136 ifx=1andy=1andz=5anda$="w"then7110
3139 if a$="n"and((tt and1)=1)thenz=z-1:goto 4200
3140 if a$="s"and((tt and2)=2)thenz=z+1:goto 4200
3150 if a$="o"and((tt and4)=4)thenx=x+1:goto 4200
3160 if a$="w"and((tt and8)=8)thenx=x-1:goto 4200
3170 if a$="h"and((tt and16)=16)theny=y+1:goto 4200
3180 if a$="r"and((tt and32)=32)theny=y-1:goto 4200
3190 if a$="kletter kamin"andx=4andy=1andz=1theny=2:goto3200
3191 if a$="kletter kamin"andx=4andy=2andz=1theny=1:goto3216
3195 goto 3220
3200 rem
3202 print"[147]sie sind im 1.stock !":pokev+21,0
3203 ifpa=1thenprint"den papagei haben sie abgeschuettelt !":pa=-1
3205 for q=1to2000 :nextq
3210 goto 10
3216 print"[147]sie sind wieder im erdgeschoss!":goto3205
3220 ifx=4andy=1andz=5anda$="n"thenprint"die haustuer ist verschlosen":goto3000
3230 ifx=2andy=1andz=5anda$="kletter efeu"then3240
3233 ifright$(a$,4)="wein"thenprint"idiot,das ist efeu!":goto3000
3235 goto3250
3240 ifsu=0then3244
3241 y=2:goto10
3244 print"[147]beim klettern sind sie mit den fuessen"
3245 print"abgerutscht und sind runtergefallen":print"sie sind tot!":goto3263
3250 goto 3265
3260 print"[147][150]ihnen ist ein fallgitter,"
3261 print"das ueber der tuer versteckt war,"
3262 print"auf den kopf gefallen !":print"[144]sie sind tot!"
3263 gosub 20000
3264 poke631,144:poke198,1:print"[144] ready!!":poke53248+21,0:goto21300
3265 ifx=3andy=2andz=1anda$="kletter sofa"thenkl=1:goto1610
3266 ifx=3andy=2andz=1anda$="kletter tisch"thenkl=2:print" ok";sp$:goto 3000
3267 goto 3270
3268 if(a$="r"ora$="kletter boden"ora$="kletter runter")thenkl=0
3269 print" sie sind auf dem boden ! ":goto 3000
3270 ifx=3andy=2andz=1andkl=1anda$="kletter kronleuchter"then lo=1:goto 6000
3271 ifx=3andy=2andz=1andkl=2anda$="kletter kronleuchter"then goto 1500
3272 ifx=3andy=2andz=1andkl=0anda$="kletter kronleuchter"thengoto 1600
3280 ifx=3andy=2andz=1andlo=1and(a$="h"ora$="kletter leiter")theny=y+1:goto10
3291 goto 3297
3292 print"[147][150]sie sind in den "
3293 print"[144]kartoffel-keller"
3294 print"[150]gefallen!"
3295 goto3263
3296 ifkl>0then4190
3297 ifzg=3andleft$(a$,4)="nimm"thenprint"sie sind voll beladen[145]":goto3000
3298 ifleft$(a$,3)="leg"andright$(a$,2)="ab"thenzg=zg-1
3299 ifleft$(a$,4)="nimm"thenzg=zg+1
3300 ifa$="nimm schluessel"and(geand1)=1thengg=gg+1:ge(x,y,z)=ge-1:goto10
3301 ifa$="nimm laterne"and(geand2)=2thengg=gg+2:ge(x,y,z)=ge-2:goto10
3302 ifa$="nimm spruehflasche"and(geand4)=4thengg=gg+4:ge(x,y,z)=ge-4:goto10
3303 ifa$="nimm flasche"and(geand8)=8thengg=gg+8:ge(x,y,z)=ge-8:goto10
3304 ifa$="nimm brief"and(geand16)=16thengg=gg+16:ge(x,y,z)=ge-16:goto10
3305 ifa$="nimm dose"and(geand32)=32thengg=gg+32:ge(x,y,z)=ge-32:goto10
3306 ifa$="nimm giesskanne"and(geand64)=64thengg=gg+64:ge(x,y,z)=ge-64:goto10
3308 ifleft$(a$,4)="nimm"thenzg=zg-1
3309 v$="leg"
3310 ifa$=v$+" schluessel ab"and(ggand1)=1thengg=gg-1:ge(x,y,z)=ge+1:goto10
3311 ifa$=v$+" laterne ab"and(ggand2)=2thengg=gg-2:ge(x,y,z)=ge+2:goto10
3312 ifa$=v$+" spruehflasche ab"and(ggand4)=4thengg=gg-4:ge(x,y,z)=ge+4:goto10
3313 ifa$=v$+" flasche ab"and(ggand8)=8thengg=gg-8:ge(x,y,z)=ge+8:goto10
3314 ifa$=v$+" brief ab"and(ggand16)=16thengg=gg-16:ge(x,y,z)=ge+16:goto10
3315 ifa$=v$+" dose ab"and(ggand32)=32thengg=gg-32:ge(x,y,z)=ge+32:goto10
3316 ifa$=v$+" giesskanne ab"and(ggand64)=64thengg=gg-64:ge(x,y,z)=ge+64:goto10
3318 ifleft$(a$,3)="leg"andright$(a$,2)="ab"thenzg=zg+1
3320 ifa$<>"besitz?"then3370
3330 print"[147]":printtab(7)"sie besitzen:":print:print
3340 if(ggand1)=1thenprinttab(15)"schluessel":print
3341 if(ggand2)=2thenprinttab(15)"laterne":print
3342 if(ggand4)=4thenprinttab(15)"spruehflasche":print
3343 if(ggand8)=8thenprinttab(15)"flasche":print
3344 if(ggand16)=16thenprinttab(15)"brief":print
3345 if(ggand32)=32thenprinttab(15)"dose":print
3346 if(ggand64)=64thenprinttab(15)"giesskanne":print
3350 print:print"ok?"
3360 getqw$:ifqw$=""then3360
3368 ifir=1thenreturn
3369 goto10
3370 ifx=4andy=1andz=1anda$="leere giesskanne"thena$="loesche feuer"
3380 ifx=4andy=1andz=1and(ggand64)=64andgi=1anda$="loesche feuer"thenfe=0:goto10
3390 if(ggand64)=64andgi=1anda$="leere giesskanne"thengi=0:goto1610
3400 ifx=4andy=1andz=3andleft$(a$,18)="entferne sicherung"thensi=0:goto10
3410 ifx=4andy=1andz=3anda$="schalte sicherung ein"thensi=1:goto10
3411 ifx=4andy=1andz=3anda$="schalte sicherungen ein"thensi=1:goto10
3420 ifx=3andy=1andz=3anda$="entferne bild"thenbo=0:goto10
3425 ifx=3andy=1andz=3andbo=0anda$="oeffne tresor"thengoto3435
3430 goto 3450
3435 input"[145] kodenummer [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";ko
3440 if ko=cothen tr=1:ge(3,1,3)=(ge(3,1,3)or1):goto10
3445 print"falsche kodenummer ":goto3000
3450 ifa$="lies brief"andbr=1and(ggand16)=16then11000
3460 if((ggand16)=16)andbr=0anda$="oeffne brief"then br=1:goto1610
3470 if(ggand32)=32anda$="oeffne dose"then ds=1:goto3490
3480 goto 3500
3490 print"ok!nun ist die dose offen!"
3495 print"sie enthaelt hundefutter!":goto3000
3500 rem
3501 if((ggand4)=4)anda$="leere spruehflasche"thensf=0:goto1610
3510 if((ggand8)=8)andfl=1andfi=1anda$="leere flasche"then fi=0:goto14100
3520 if(ggand8)=8 andfl=0anda$="leere flasche"thenprint"flasche ist zu":goto3000
3530 if((ggand8)=8)anda$="oeffne flasche"then3550
3540 goto3560
3550 fl=1:print"ok,die flasche enthaelt chloroform":goto3000
3560 ifx=5andga=0andleft$(a$,13)="oeffne garage"thenga=1:goto10
3570 ifx=5andmu=0anda$="oeffne muelltonne"thenmu=1:goto10
3572 ifx=5andmu=1anda$="nimm schuhe"thensu=1:goto10
3590 print
3650 ifx=5andmu=1anda$="schliesse muelltonne"thenmu=0:goto10
4190 print"unmoeglich[146] ";:goto3000
4200 goto10
4999 rem"[141]block v:zeichnen der aussenaufnahmen
5000 [153]"loadcont";
5010 [139]y[178]2[167]5850
5020 [145]x[171]1[137]5800,5300,5400,32000
5030 [153]"loadcont";
5040 [129] q[178]1[164]10
5041 [153][163]5)"sqr":[153][163]5)"andsqr"
5042 [130]q
5050 [153][163]5)"freusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
5055 [153]""
5060 [153] [163]16)"(NULL) (NULL)"
5070 [129]q[178]1[164]6:[153][163]16)" ":[130]
5080 [153][163]16)"(NULL) (NULL)"
5090 [153]:[153]:[153]:[153]:[153]:[153]
5092 [153]"*def(NULL)***"
5093 [153]"*****"
5094 [153]"****def(NULL)"
5095 [153]"*def(NULL)**for(NULL)waitwait***forintrndwaitrndcont"
5098 [137]3000
5300 [153]""
5303 [153] [163]25)"(NULL) "
5306 [129]q[178]1[164]6:[153][163]25)" ":[130]
5310 [153][163]25)"(NULL) "
5313 [153]""
5320 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
5330 [153]""
5340 [153]" atn atn "
5341 [153]"atn(NULL)(NULL)>right$ "
5342 [153]"(NULL)mid$<atn(NULL) "
5343 [153]"atn -(NULL) "
5344 [153]">right$mid$=right$atn"
5345 [153]"(NULL)(NULL)=(NULL)mid$(NULL)"
5346 [153]"<(NULL)(NULL) "
5347 [153]"-=right$atn "
5348 [153]"(NULL)(NULL)mid$(NULL) "
5349 [153]"right$(NULL)right$"
5350 [153]"mid$(NULL)(NULL)cont"
5363 [153][163]21)" def@"
5364 [153][163]20)"def@ - def@"
5365 [153][163]20)"< < def@@ <def@"
5367 [153][163]20)"<<mid$<<<"
5368 [153][163]20)"-<---cont"
5369 [153][163]20)"print"wi$"cont":[153]
5390 [137]3000
5400 [129]q[178]1[164]20[169]2
5410 [153][163]30)"sqrwaitstep";
5420 [139]q[179][178]16[167][153][163]35)"step":[137]5431
5430 [153][163]51[171]q)"(NULL)"
5431 [153][163]29)"andsqrstepwait";
5432 [139]q[179][178]16[167][153][163]35)"step":[137]5440
5435 [153][163]50[171]q)"(NULL)"
5440 [130]q
5550 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusron(NULL) "
5560 [153]""
5570 [153]" (NULL) (NULL)(NULL) (NULL)wait"
5580 [129]q[178]1[164]6:[153]" " :[130]
5590 [153]" (NULL) (NULL) wait(NULL)on wait"
5600 [129]q[178]1[164]9:[153][163]17)" wait":[130]q
5700 [153]""
5705 wi$[178]"":[129]q[178]0[164]9:wi$[178]wi$[170][199](34):[130]
5710 [153][163]4)" def@"
5711 [153][163]3)"def@ - def@"
5712 [153][163]3)"< < def@ <def@"
5713 [153][163]3)"- - def@- --"
5714 [153][163]3)"<<mid$<<<"
5715 [153][163]3)"-<---cont"
5716 [153][163]3)"print"wi$"cont"
5720 [137]3000
5800 [153]"loadcont";
5803 [153]" (NULL)usrusrusrusrusrusrusrusrusr(NULL)(NULL) -right$atnmid$<-tanright$
5804 print"[154] [180] [170] [205][221][202][203][193][171][221][201][221][193]
5805 [153]"cont sgn + atn-right$atn-(NULL)tan(NULL)-(NULL)
5806 print"[154] [204][175][175][175][175][175][175][175][175][175][186] [171][203][211][202][177][201][221][213][203]
5807 [153]"cont (NULL) (NULL)(NULL)contsgn(NULL)atnatnmid$<(NULL)
5808 print" [221][154][205][175][175][193][154][175][175][193][154][175][175][193] [192][201][213][177][203][193][221]
5809 [153]" (NULL)atn(NULL)tan(NULL)atn mid$=atn(NULL)atn-tan>tantan>(NULL)right$
5810 print" [202][177][179][193][178][219][193][193][221][213][221][177][203][221][213][192][178][201][221][211]
5811 [153]" (NULL)<atn(NULL)(NULL)(NULL)(NULL)tantan(NULL)=atn(NULL)mid$right$(NULL)(NULL)(NULL)atn
5812 print" [213][179][171][203][211][219][203][211][221][202][179][211][213][203][193][221][211][213][177][203]
5813 [153]" (NULL)(NULL)(NULL)atn(NULL)(NULL)tanright$(NULL)atn(NULL)(NULL)(NULL)atnmid$tantan(NULL)tanright$(NULL)right$
5814 print" [193][211][213][179][202][203][221][193][211][171][203][221][171][192][203][193][221][211][179][193][202][179][211]
5815 [153]" mid$tan<mid$tanright$-<atn(NULL)atn(NULL)mid$right$atnmid$(NULL)right$(NULL)-right$(NULL)
5816 print" [193][171][178][201][171][203][211][202][179][202][219][201][171][221][192][192][203][221][202][221][203]
5817 [153]" mid$(NULL)(NULL)(NULL)mid$=right$atn(NULL)atn(NULL)(NULL)-(NULL)atn(NULL)atn(NULL)(NULL)>
5818 print" [213][179][193][213][203][202][219][179][202][201][221][221][213][219][203][171][221][203][193]
5819 [153]" (NULL)mid$(NULL)(NULL)(NULL)=(NULL)(NULL)atn(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)atn-right$atn
5820 print" [193][213][179][211][193][221][202][221][192][221][179][213][177][192][177][203][221][171][203]
5821 [153]" mid$<(NULL) mid$<atn(NULL)(NULL)-(NULL)(NULL)atn(NULL)tan=<(NULL)
5822 print" [211] [193][213][179][202][179][171][203] [171][203][211][193][221][221]
5823 [153]" mid$(NULL)mid$=<-(NULL)atn-=tan(NULL)(NULL)-right$
5824 print" [211][221][221][213][177][179][211][193][213][192][221][203]
5825 [153]" (NULL)(NULL)(NULL) -tan(NULL)(NULL) (NULL)
5826 print"[154][145][145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5830 goto3000
5850 print"[147]";
5860 print""
5865 print" sie sind auf dem balkon![146]":print
5870 printtab(14)"[205] [206][146]"
5880 printtab(14)" [146]"
5881 printtab(14)" [146]"
5882 printtab(14)" [146]"
5883 printtab(14)" [146]"
5884 printtab(14)" [146]"
5885 printtab(14)" [146]"
5886 printtab(14)" [146]"
5887 printtab(14)" [146]"
5888 printtab(14)" [146]"
5889 printtab(14)" [146]"
5890 printtab(14)" [146]"
5891 printtab(14)" [146]"
5892 printtab(14)" [146]"
5893 printtab(14)" [146]"
5898 printtab(10)"[206][183][183][183][183] [183][183][183][183][205]"
5900 print"[154]"
5902 forq=10to1step-1:printtab(q-1)"[169][146][169]";:printtab(11)"[180]";
5903 printtab(26)"[170]";:printtab(37-q)"[223][223][146]":next
5998 goto3000
5999 rem"[141]unterprogramm kronleuchter
6000 [139]si[178]0[167]6010
6001 [153]"load"
6002 [153]"sie haben einen "
6003 [153]"stromschlag bekommen !
6004 goto 3263
6010 print""
6011 printtab(16)"[206][145][164][164][164][164][164][164][157][206][157][157][157][157][157][157][157][163][163][163][163][163][163][145]"
6020 forq=1to8
6021 printtab(17)" [171][192][179] "
6022 printtab(17)"[202][198][210][198][203]"
6023 printtab(17)" [221] "
6024 printtab(17)" [221] "
6025 printtab(17)"[154][193] [193] [193][154]"
6026 printtab(17)"[221][213][219][201][221]"
6027 printtab(17)"[202][203][218][202][203]"
6030 print"[145][145][145][145][145][145][145]"
6031 fort=1to300:nextt
6040 nextq
6050 goto3000
6999 rem"[141]block vi:kleinprogramm hof,scheune etc.
7000 [153]"load":ir[178]1
7011 [153]"sie sind auf dem scheunendach"
7020 [129]q[178]1[164]4[172]40:[153]"verifystepwaitstepstop(NULL)verify";:[130]
7030 [153]" waitstep"
7031 [153]"stoptab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(";
7032 [153]"ononon"
7040 [129] t[178]1[164]4
7041 [153][163]30)"stop-tantan<cont";:[139]t[177]1[167][153]"stopthencont";
7045 [153]
7050 [130]t
7060 [133]"was jetzt";a$
7070 [139] a$[178]"o"[167] z[178]3:x[178]1:y[178]3:ir[178]0:[137]10
7072 [139]a$[178]"besitz?"[167] [141]3330
7073 [139] a$[178]"besitz?"[167]7000
7080 [139] a$[178]"w"[176]a$[178]"n"[176]a$[178]"s"[167] 7085
7081 [137] 7090
7085 [153]"loadstopsie sind vom dach gefallen":[137] 3263
7090 [139]a$[178]"kletter leiter"[176] a$[178]"r"[167]7110
7100 [153]"unmoeglichwaitonon":[137]7060
7110 [153]"load";
7112 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)contwaitsgn sgncont(NULL) (NULL)"
7113 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)contwait sgncont(NULL)(NULL)"
7114 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)contwaitsgncontsinusrusrusrusrusrusrusr"
7115 [153]"stop(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)wait-tan<(NULL)(NULL)(NULL)(NULL)wait"
7120 [129]t[178]1[164]6
7121 [153]"verify stopwait-tan<verify wait"
7122 [153]"stop stopwait-tan<stop wait"
7130 [130]:[153]"cont"
7140 [153]""
7150 [153]"stop(NULL)str$valvalstr$right$"
7160 [153]"stop(NULL) (NULL)"
7161 [153]"stop(NULL) (NULL)"
7162 [153]"stop(NULL) (NULL)"
7163 [153]"stop(NULL) (NULL)"
7164 [153]"stop(NULL) (NULL)"
7165 [153]"stop(NULL) (NULL)cont"
7166 [153]" sie sind im hof!on ";
7170 [129]w[178]25[164]30:[153][163]w)"(NULL)":[130]
7180 [153]""
7188 [129]w[178]1[164]20:[153][163]31)"sinwait";
7190 [139]w[178]4[176]w[178]12[167][153]"(NULL) ";
7191 [139]w[178]8[176]w[178]16[167][153]"(NULL) wait";
7193 [139](w[177]4[175]w[179]8)[176](w[177]12[175]w[179]16)[167][153]" ";
7195 [153]:[130]
7196 [139]hund[178]1[167][141]12200
7198 [153][163]32)"onandandandandandandand"
7200 [153]""
7201 [153][163]3)"print#(NULL)"
7202 [153][163]3)" waitstop(NULL)"
7203 [153][163]3)"sinwaitusrchr$print#(NULL)waitstoptan^"
7204 [153][163]3)"logwaitandchr$print# stopcos"
7205 [153][163]3)" "
7206 [153][163]3)" "
7207 [153][163]3)"logand andwaitcoscont";
7210 [133]"was jetzt";a$
7215 [139]hu[178]1[175](((gg[175]32)[179][177]32)[176]a$[179][177]"leg dose ab"[176]ds[178]0)[167][137]13000
7220 [139] a$[178]"h"[176]a$[178]"kletter leiter"[167][137] 7000
7221 [139] a$[178]"o"[167]x[178]1:y[178]1:z[178]5:[137]10
7222 [139] a$[178]"n"[167]30000
7225 [139]a$[178]"besitz?"[167][141]3330
7226 [139]a$[178]"besitz?"[167]7110
7230 [139] a$[178]"kletter brunnen"[167] 7300
7231 [139]a$[178]"leg dose ab"[175] hu[178]1[175]ds[178]1[167]hu[178]2:zg[178]zg[171]1:[137]7233
7232 [137]7240
7233 [153]"onononstopder hund ist mit der dose ":gg[178]gg[171]32
7234 [153]"stopin sein versteck gelaufencont"
7235 [151]53248[170]21,0:[129] sa[178]1[164]2500:[130]:[137]7110
7240 [153]"unmoeglichon";:[137]7200
7300 [153]"loadcontsie sind im brunnen!"
7310 [129]q[178]1[164]5:[153][163]8)"forsqrsqrstop for(NULL)(NULL)"
7311 [153][163]8)"forandsqrstop /for(NULL)and":[130]
7315 [153][163]8)"forsqrsqrstop spc(spc(spc(spc(spc(spc( for(NULL)(NULL)"
7316 [153][163]8)"forandsqrstop spc(spc(spc(spc(spc(spc(spc(spc( /for(NULL)and"
7317 [153][163]8)"forsqrsqrstop spc(spc(spc(spc(spc(spc(spc(spc(spc(spc( for(NULL)(NULL)"
7319 [153][163]8)"forandsqrstop spc(spc(spc(spc(spc(spc(spc(spc(spc(spc( /for(NULL)and"
7320 [153][163]8)"forsqrsqrstop spc(spc(spc(spc(spc(spc(spc(spc(spc(spc( for(NULL)(NULL)"
7321 [153][163]8)"forandsqrstop spc(spc(spc(spc(spc(spc(spc(spc(spc(spc( /for(NULL)and"
7324 [129]q[178]1[164]2:[153][163]8)"forsqrsqrcont(NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) for(NULL)(NULL)"
7325 [153][163]8)"forandsqrcont (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)for(NULL)and":[130]
7330 [133]"contwas jetzt ";a$
7340 [139] a$[178]"h"[176][200](a$,7)[178]"kletter"[167] 7110
7350 [139] a$[178]"n"[167]7370
7355 [139]a$[178]"besitz?"[167][141]3330
7356 [139]a$[178]"besitz?"[167]7300
7360 [153]"unmoeglichononon"
7365 [137] 7330
7370 [153]"loadcontsie sind in einem zweiten brunnen"
7371 [153]"auf der anderen seite der scheune!"
7380 [129]q[178]1[164]7:[153][163]8)"forsqrsqrstop for(NULL)stop for(NULL)(NULL)"
7381 [153][163]8)"forandsqrstop for(NULL)stop for(NULL)and":[130]
7382 [153][163]8)"forsqrsqrstop for(NULL)(NULL)"
7383 [153][163]8)"forandsqrstop for(NULL)and"
7394 [129]q[178]1[164]2:[153][163]8)"forsqrsqrcont(NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) for(NULL)(NULL)"
7395 [153][163]8)"forandsqrcont (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)for(NULL)andcont":[130]:[153]"swaitued ist moeglich"
7400 [133]"contwas jetzt ";a$
7410 [139] a$[178]"kletter seil"[167] 7500
7420 [139] a$[178]"s"[167]7300
7425 [139]a$[178]"besitz?"[167][141]3330
7426 [139]a$[178]"besitz?"[167]7370
7430 [153]"unmoeglichwaitonon"
7435 [137] 7400
7500 [153]"load":ir[178]1
7514 [129]w[178]1[164]6:[153][163]28)"sgn":[130]
7520 [153]"onononfor(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
7521 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
7522 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)cont"
7530 [129]w[178]28[164]38:[153][163]w)"(NULL)":[130]
7540 [153]"ononononononononononononononononon"
7544 [153][163]28)"sgn sgn"
7545 [153][163]28)"****cont sgn sgn"
7546 [153][163]28)"*def(NULL)****cont(NULL) sgn"
7547 [153][163]28)"******def(NULL)*cont(NULL)sgn"
7548 [153][163]28)"def(NULL)****def(NULL)**"
7549 [153][163]28)"*def(NULL)****"
7550 [153][163]28)"****"
7551 [153][163]28)"forspc((NULL)"
7552 [153][163]28)"forspc((NULL)"
7553 [153][163]28)"forspc((NULL)"
7554 [153][163]28)"forspc((NULL)"
7560 [153]""
7570 [129]q[178]3[164]8:[153][163]q)"* * * * * *":[130]
7700 [153]" sie sind im garten !"
7701 [153][163]25)"stop/forlogprint#usrwaitnewusrforcoswaitstop^"
7702 [153][163]25)" forgetprint#frestop(NULL)print#freforgetstopwait/tan"
7703 [153][163]25)" stoplogwaitand(NULL)andcos"
7704 [153][163]25)" stop "
7705 [153][163]25)" stop "
7706 [153][163]25)" stoplogand andwaitcoscont"
7707 [139]hu[178]3[167][141]12200
7720 [133]"was jetzt ";a$
7725 [139]hu[178]3[167]13000
7730 [139][200](a$,7)[179][177]"kletter"[176][201](a$,4)[179][177]"baum"[167]7780
7740 [153]"load"
7750 [153]"contsie sind ueber den apfelbaum"
7760 [153]"wieder ins obergeschoss"
7761 [153]"des hauses gelangt !"
7770 x[178]1:y[178]3:z[178]2:[129]t[178]1[164]3000:[130]:ir[178]0:[137]10
7780 [139] a$[178]"kletter brunnen"[167]7370
7781 [139] a$[178]"s"[167]30000
7785 [139]a$[178]"besitz?"[167][141]3330
7786 [139]a$[178]"besitz?"[167]7500
7790 [153]"unmoeglichwaitonon":[137]7720
7999 [143]"gosubblock vii:moebel-zeichnen
8000 forq=6to0step-1
8010 if(mo and(2^q))=2^qthengoto8080
8020 nextq
8025 ifpa=1thengosub12000
8026 ifx=4andy=2andz=3thengosub12100
8030 goto85
8080 onqgoto8150,8198,8217,8250,8300,8430
8090 print""
8100 printtab(22)"[223] [223]"
8110 printtab(22)"[182][223] [223]"
8120 printtab(22)"[182][182][182][182]"
8121 printtab(22)"[182][182][182][182]"
8125 printtab(22)"[182][182]"
8130 goto8020
8150 print""
8160 print"[207][183][183][208][205]"
8161 print"[180] [170] [205]"
8162 print"[180] [170] [221][205]"
8170 forw=1to10:print"[180] [170] [221][170]":next
8180 print"[180] [170] [221][206]"
8181 print"[180] [170] [206]"
8182 print"[204][175][175][186][206]"
8190 print"[145][145][145][145][145][145][145][145][221]"
8195 goto8020
8198 ify<>1then goto 8500
8200 print"":ifx<>3ory<>1orz<>3orbo=1thenprint"[145]":goto8209
8201 iftr=1then8206
8202 printtab(14)"[213][192][192][192][201]"
8203 printtab(14)"[179][213][201] [221]"
8204 printtab(14)"[179][202][203] [221]"
8205 printtab(14)"[202][192][192][192][203]":goto8210
8206 printtab(9)"[213][192][192][192][201][213][192][192][192][201]"
8207 printtab(9)"[221] [171][179] [221]":printtab(9)"[221] [171][179] [221]"
8208 printtab(9)"[202][192][192][192][203][202][192][192][192][203]":goto8210
8209 printtab(11)" [144]. "
8210 printtab(11)"[154][172][162][162][162][162][162][162][162][162][187]"
8211 printtab(11)"[161][158][192][209][192] [154][161]"
8212 printtab(11)"[161][158][206][221][205][154] [169][223][146] [161]"
8213 printtab(11)"[161] [169][223][169] [223][169][161]"
8214 printtab(11)"[161][169] / / [161]"
8215 printtab(11)"[188][146][162][162][162][162][162][162][162][162][190]"
8216 goto8020
8217 print"":si$="[209][209][209][209][209][209]":ifsi=0thensi$="[215][215][215][215][215][215]"
8221 printtab(6)"[175][175][175][175] [180][180]
8222 [153][163]6)"andandand sgnsgnsgn
8223 printtab(6)"[175][175] [180][180][180][180]
8224 [153][163]6)" and(NULL)(NULL)(NULL)(NULL)(NULL)
8225 printtab(6)"[170]"si$"[180]
8226 [153][163]6)"+......sgn
8227 printtab(6)"[170]:=[146]::::[180]
8228 [153][163]6)"+ (NULL) (NULL) sgn
8229 printtab(6)" [183][183][183][183][183][183]
8230 [153][163]6)"sicherungen!wait"
8250 [153]"":j[178]30:lk$[178]""
8251 [139](tt [175]4)[178]0[167]j[178]j[170]2:[139]x[178]1[175]y[178]1[175]z[178]4[167]lk$[178]"fn"
8260 [153][163]j)"(NULL)(NULL)usr(NULL)"
8261 [153][163]j)"(NULL) sgn +"lk$
8262 [153][163]j)"+tab((NULL)sgn +"lk$
8263 [153][163]j)"+(NULL) sgn +"lk$
8264 [153][163]j)"+tab(tab(sgn +"lk$:[139]j[178]32[167][153][163]j)"+ sgn +"lk$
8265 [153][163]j)"+ascascsgn +"lk$
8266 [153][163]j)"+ sgn +"lk$:[139]j[178]32[167][153][163]j)"+ sgn +"lk$
8267 [153][163]j)"+totosgn +"lk$
8268 [153][163]j)"+(NULL) sgn +"lk$
8269 [153][163]j)"+to(NULL)sgn +"lk$
8270 [153][163]j)" sgn +"lk$
8271 [153][163]j)"(NULL)andsqr"lk$
8275 [137]8020
8300 [153]"cont"
8310 [153][163]19)"(NULL)str$valvalvalstr$valvalvalstr$right$"
8311 [153][163]19)"chr$ . . . . left$"
8312 [153][163]19)"(NULL)>right$ . . . (NULL)>right$"
8313 [153][163]19)"chr$.-str$str$str$lenstr$str$str$<.left$"
8314 [153][163]19)"mid$ascascascascascascascascascascasc(NULL)"
8315 [153][163]19)"/tantantantantantantantantanexp"
8317 [139]x[178]3[175]y[178]2[175]z[178]1[175]lo[178]1[167][153]"ononononon":[153][163]19)ws$"atn atncontcmdcmdcmd(NULL)right$(NULL)cmdcmdcmd(NULL)mid$(NULL)
8318 goto8020
8400 print""
8410 printtab(8)"[154][169]**********************[223]"
8411 printtab(7)"[154][169]* *[223]"
8412 printtab(6)"[154][169]**************************[223]"
8420 goto 8020
8430 print""
8440 printtab(10)"[167][223]"
8441 printtab(10)"[167][223][223]"
8442 printtab(10)"[167][223][165]"
8444 printtab(10)"[167][165]"
8445 printtab(10)"[167][223] [165][223]"
8446 printtab(10)"[167][223][165] [223]"
8447 printtab(10)"[167][165][165][167]"
8448 printtab(10)"[165][167]"
8450 goto8020
8500 print""
8510 printtab(11)"[154][172][162][162][162][162][162][162][162][187]"
8511 printtab(11)"[161] [158][192][209][192][154][161]"
8512 printtab(11)"[161] [150][169][223][158][146] [206][221][205][154][161]"
8513 printtab(11)"[161] [152][212][217][193][193][193][154] [161]"
8514 printtab(11)"[161] [154][161]"
8515 printtab(11)"[188][146][162][162][162][162][162][162][162][190]"
8516 goto8020
8900 forqw=1to3
8902 print""
8910 forw=1to14:print""chr$(20);"[167][148]":next
8915 fort=1to300:next
8920 nextqw
8925 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":forwq=1to15:print" ":next
8931 print" [206][145][206][145][206]":tt(3,3,2)=7:tt=7
8932 print"die tuer hat sich hinter ihnengeschlossen!!"
8935 goto3000
8999 rem"[141]unterprogramm leichen
9000 [153]""
9004 [153][163]10)"(NULL)"
9005 [153][163]10)"t"
9010 [153][163]10)"(NULL)step (NULL)(NULL)"
9020 [153][163]10)" spc(spc(spc(spc( c(NULL)usrusr(NULL)(NULL)(waitstopsgncont"
9021 [137] 3000
9030 [153]"cont":[153][163]17)"+"
9031 [153][163]17)"sqr"
9032 [153][163]17)"+ stopand"
9033 [153][163]17)"cont+step%waitstopsgncont"
9034 [153][163]17)"right$waitstep"
9035 [153][163]17)"step(NULL)"
9036 [153][163]16)"abs(NULL)(NULL)waitint"
9037 [153][163]16)"abs(NULL)(NULL)waitint"
9038 [153][163]16)"sgnsgn"
9039 [153][163]16)"sgnsgn"
9040 [153][163]16)"sgnsgn"
9041 [153][163]16)"exp/"
9042 [137] 3000
9999 [143]"gosubblock viii:gegenstaende zeichnen
10000 ge=ge(x,y,z):ge$="":ifx=2andy=2andz=4thenge$="leiche"
10001 ifx=4andy=2andz=3thenge$="skorpion"
10002 ifx=1andy=1andz=1thenge$="leiche"
10003 forw=0to7
10010 if(geand2^w)=2^wthengoto10040
10020 nextw
10021 ifx=3andy=1andz=3andbo=0thenge$=ge$+" tresor[154]"
10022 iflen(ge$)>37then10031
10023 iflen(ge$)>37thenprint""left$(ge$,37);"=":printright$(ge$,len(ge$)-37)
10024 iflen(ge$)>37then10030
10026 print""ge$
10030 goto86
10031 print""left$(ge$,37);"=":print""right$(ge$,len(ge$)-37):return
10040 onwgoto10060,10070,10080,10090,10100,10110,10120
10050 print"[154]":iftr=0orx<>3ory<>1orz<>3thenprint""
10051 tb=27:iftr=1andx=3andy=1andz=3thentb=15
10058 printtab(tb)"[255][196][215]":ge$=ge$+" schluessel"
10059 goto 10020
10060 print"[154]"
10061 printtab(25)"[215]"
10062 printtab(25)"[205][154][193][206]"
10063 printtab(25)"[175][154][213][162][146][201][175]"
10064 printtab(25)"[154][202][162][203]"
10065 printtab(25)"[206][154][188][184][190][205][154]":ge$=ge$+" laterne"
10066 goto 10020
10070 print"[154]"
10071 printtab(34)"[176]"
10072 printtab(34)"[172][146][165]"
10073 printtab(34)"[188][146][165]":ge$=ge$+" spruehflasche"
10074 goto 10020
10080 print"[154]"
10081 printtab(18)"[181][182]"
10082 printtab(18)"[213][203][202][201]"
10083 printtab(18)"[221]==[146][221]"
10084 printtab(18)"[202][192][192][203]":ge$=ge$+" flasche"
10085 goto10020
10090 print"[154]"
10091 printtab(16)"[205][206]"
10092 printtab(16)"[162][162]":ge$=ge$+" brief"
10093 goto 10020
10100 print"[154]"
10101 printtab(8)"[213][196][201]"
10102 printtab(8)"[171][198][179]"
10103 printtab(8)"[221]=[146][221]"
10104 printtab(8)"[202][198][203]":ge$=ge$+" dose"
10105 goto10020
10110 print"[154]"
10111 printtab(2)"[213][201][223]"
10112 printtab(2)"[202] [146][206]"
10113 printtab(2)" ":ge$=ge$+" giesskanne"
10114 goto10020
10120 gosub12000
10130 goto 10020
10998 rem"[141]
10999 [143]"gosubunterprogramm brief
11000 print"[147]"
11010 printchr$(14)
11020 printtab(5)"[154][204]ieber [207]nkel [193]dalbert !":print
11030 print"[218]u [196]einem [199]eburtstage wuensche"
11032 print"ich [196]ir [193]lles [199]ute ."
11033 print"[215]ie geht es [196]ir ? [205]ir geht es"
11034 print"gut . [196]as [215]etter ist schoen .":print
11035 print"[201]ch hoffe , dass [196]u in dem"
11036 print"[197]rbschaftsstreit um [212]ante "
11037 print"[199]erlindes [200]interlassenschaft"
11038 print"[196]einen rechtmaessigen [193]nteil"
11039 print"erhalten werdest !":print
11040 print"[201]ch wuensche [196]ir ein recht "
11041 print"langes [204]eben !":print
11042 print""co" [199]ruesse von [196]einem [206]effen [157][157][157][157][198][210][201][196][207][204][201][206]"
11050 gets$:ifs$=""then11050
11055 print"[147]"
11060 printchr$(142)
11070 goto 10
11998 rem"[141][142]
11999 [143]"gosubunterprogramme sprites
12000 v=53248
12010 pokev+41,5:pokev+21,4:poke2042,13:pokev+23,0:pokev+29,0
12020 pokev+4,255:pokev+5,110
12030 return
12100 rem skorpion bewacht geheimtuere ****************************
12101 v=53248
12110 pokev+42,10:pokev+21,(peek(v+21)or8):poke2043,15:pokev+23,0:pokev+29,0
12120 pokev+6,125:pokev+7,180
12130 return
12200 rem hund
12201 v=53248
12210 pokev+42,0:pokev+21,(peek(v+21)or8):poke2043,14:pokev+23,8:pokev+29,8
12220 pokev+6,200:pokev+7,180
12230 return
12999 rem"[141]diverse unterprogramme
13000 [153]"loadder hund hat sie verschlungen !":[137]3263
14000 [153]"load"
14001 [129]i[178]5[164][171]20[169][171]1
14005 [151]53280,1:[151]53281,0
14006 [129]t[178]1[164](i[172]20):[130]t
14010 [151]53280,0:[151]53281,1
14011 [129]w[178]1[164](i[172]20):[130]w
14020 [130]i
14025 [151]53280,6:[151]53281,6
14030 [153]""
14040 [153]"in diesem zimmer war gas ausgestroemt !"
14050 [153]"es hat sich an der laterne entzuendet..."
14060 [153]"...und ist explodiert !!!"
14070 [137] 3263
14099 [143]"gosubunterprogramm flasche
14100 print" [145]"
14101 input"wohin ";le$:print"[145][145]"
14105 ifx=2andy=4andz=1then14900
14110 if((ggand4)=4)andsf=0andright$(le$,13)="spruehflasche"then sf=1:goto1610
14111 if((ggand4)=4)andsf=2andright$(le$,13)="spruehflasche"then 14200
14120 print"[147]sie haben sich mit dem chloroform ":print
14130 print"selbst betaeubt !":goto3263
14140 print"[147]sie haben sich bei dem versuch,":print
14150 print"den moerder zu betaeuben,":goto14130
14200 print"die spruehflasche ist noch voll parfuem":fi=1:goto3000
14300 print"[147]"
14310 print"sie sind auf dem dach ins rutschen":print
14320 print"gekommen und abgestuertzt !":goto3263
14500 print""
14510 input" was jetzt ";a$
14515 if((ggand8)=8)anda$="leere flasche"then14600
14520 if((ggand4)=0)ora$<>"leere spruehflasche"then14900
14530 ifsf<>1then14800
14540 goto15000
14600 input" wohin ";le$
14610 ifright$(le$,7)="moerder"then14140
14620 ifright$(le$,13)="spruehflasche"then14900
14630 goto14120
14800 print"[147]"
14810 print"der moerder lies sich von ihrem":print
14820 print"parfuem nicht beeindrucken...":print""
14830 print"...er hat sie getoetet!!":goto3263
14900 print"[147]"
14910 print"der moerder hat sie ueberwaeltigt!!":print
14920 print"[144]sie sind tot![154]":goto3263
15000 print"[147]"
15010 rem trae trae trae!
15020 print"bravo!!!":print"sie haben den moerder betaubt,":rem"[141][147]
15030 [153]"und koennen ihn jetzt der polizei "
15040 [153]"uebergeben."
15050 [153]"sie wird ihm seine gerechte stafe"
15060 [153]"zukommen lassen."
15070 [141]20000
15080 [151]631,144:[151]198,1:[153]"stop rconteaclrdsysy!!":[151]53248[170]21,0:[128]
16999 [143]"gosubspielregeln
17000 print"[147][154]";
17010 print"*** miss marple ***"
17020 print"'miss marple' ist ein adventure-spiel."
17030 print"ziel des spiels ist es,einen"
17040 print"gefaehrlichen doppelmoerder"
17050 print"aufzuspuehren und zu ueber-":print"waeltigen."
17060 print"er befindet sich im inneren "
17070 print"eines dreistoeckigen hauses."
17071 print" *)"
17075 print"richtungen: w,o,n,s,h[154](hoch),r[154](runter)
17080 [153]"folgende befehle (gefolgt von einem"
17090 [153]"substantiv) sind ausserdem moeglich:"
17100 [153]"nimm...",,:[153]"leg...ab"
17110 [153]"oeffne...",,:[153]"loesche..."
17120 [153]"leere...",,:[153]"entferne..."
17130 [153]"kletter...",:[153]"lies..."
17140 [153]"schalte...ein",:[153]"verschiebe..."
17145 [153]"contmit'besitz?cont'erfaehrt man,welche gegen= staende man traegt"
17150 [153]"contzb.: kletter contbank / leg contmesser ab"
17160 [153]"falsch: kletter contbank / leg ab contmesser"
17165 [153]" *)man schaut immer nach nordenon"
17170 [137]2000
17200 [153]"fertig ?cont";
17210 [161]ge$:[139]ge$[179][177]"j"[167]17210
17220 [141] 20000
17230 [137] 10
19999 [143]"gosub** musik **
20000 poke53248+21,0
20001 sy=54272:fl=sy:fh=sy+1:l=sy+24:w=sy+4:a=sy+5:h=sy+6:th=sy+3:tl=sy+2
20010 pokel,15:pokea,0:pokeh,0
20020 en=qy
20030 fort=0toen-1
20040 pokefh,hh(t):pokefl,ll(t):dd=dd(t)
20050 ift<10thenpokew,129:goto20080
20060 pokel,5:pokea,9:pokeh,0:poketh,0:poketl,255
20070 pokew,65
20080 forer=1to45*dd:nexter
20090 pokew,0:nextt
20100 return
21000 fort=0to62:poke832+t,sp(1,t):next
21010 fort=0to62:poke832+t+64,sp(2,t):next
21020 fort=0to62:poke832+t+128,sp(3,t):next
21025 return
21028 rem"[141]sprites fuer moerder
21030 v[178]53248
21040 [151]2040,13:[151]2041,14:[151]2042,15
21050 [151]v[170]39,0:[151]v[170]40,0:[151]v[170]41,0
21060 [151]v,100:[151]v[170]2,100:[151]v[170]4,100
21070 [151]v[170]1,135:[151]v[170]3,156:[151]v[170]5,177
21075 [151]v[170]23,0:[151]v[170]29,0
21080 [151]v[170]21,7
21090 [153]"stopmoerder":[142]
21199 [143]"gosubtitelbild
21200 print"[147][201][213][213][201][213][201][157][157][157][157][157][157][221][221][199] [202][201][157][157][157][157][157][157][202][203][202][203][202][203]"
21210 print"presents:"
21215 print:print:print
21220 print" [223][169] [169] [223][169] [223] [223][169] [169] [223] [223] [223] "
21222 print" [146][223][169] [146][223][169] "
21224 print" [146][223] [223][146][223] [223] [146][169] [146][169] "
21226 print" [146][223][223] "
21228 print" [146][223] [146][169][146][223] [146][169] "
21230 print" ***written by j+m+m kuppe 1984***"
21235 print:print"[154](warnung:dies ist ein amateurprogramm!)"
21240 print:print" (nc) no copyrirht 1984 by ucs"
21250 print"space";
21290 geta$:ifa$=""then21290
21298 goto2
21299 rem"[141]trauriges ende
21300 [153][163]17)"* *"
21301 [153][163]17)"cont(NULL) stop(NULL)cont (NULL)"
21302 [153][163]17)"stopv step (NULL)wait v"
21303 [153][163]17)"(NULL) sgn(NULL)+wait (NULL)"
21304 [153][163]17)"> logfrecos >"
21310 [153]" verehrte trauergemeinde..."
21320 [153]" wir sind hier zusammengekommen,"
21330 [153]" um unserem/unserer lieben..."
21340 [153]" die letzte ehre zu erweisen...":[128]
29999 [143]"gosubscheuneninneres
30000 print"[147]"
30010 forq=1to14:print"[129][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167][167]":next
30020 forq=1to7:print"[129][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205]":next
30030 print""
30040 printtab(10)"[206] [205]"
30041 printtab(10)" [146][169] [223][167]"
30050 forx=1to7:printtab(10)" [146] [167]":next
30060 print"[154]sie sind in der scheune[129][146]*******"
30080 print"**********"
30090 print"*************"
30095 print"[204][175][175][175][175][175][175][175][175][175][175][175][186]"
30098 print"[205][205][205][205][205][205]"
30100 print"":forq=1to10:printtab(27)"[171][192][179]":next
30105 print"":printtab(27)"[171][198][179]"
30110 ifhu=2thengosub12200:goto30130
30120 goto30160
30130 hu=3
30140 forq=1to1000:next:pokev+21,0
30150 print"[154] der hund ist in den garten gelaufen"
30160 print"[154]s[146]ued ist moeglich":input"was jetzt";a$
30170 ifa$="s"then7110
30172 ifa$="n"then7500
30180 ifa$="besitz?"thengosub3330
30181 ifa$="besitz?"then30000
30185 ifa$="kletter leiter"then30200
30190 print"unmoeglich";:goto30160
30200 print"[147][144]die leiter war morsch!":print"sie sind heruntergefallen und haben"
30210 print"sich das genick gebrochen!"
30220 goto3263
30999 rem"[141]dach
31000 [153]"loaddefandandandandandandandandandand contsie sind auf dem dach!def"
31001 [129]q[178]1[164]20
31002 [129]p[178]1[164]10[170]q:[153]"(NULL)";:[130]:[153]
31004 [130]
31010 [153]"stopstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$^cmdchr$onstr$str$str$str$str$waitcos"
31020 [153]"cont"
31030 [153][163]12)" sgn "
31031 [153][163]12)" sgn "
31032 [153][163]12)" sgn "
31033 [153][163]12)"(NULL) sgn "
31034 [153][163]12)"(NULL)sgn "
31040 [153]""
31050 [153][163]8)"(NULL)usrusrusrusr(NULL)"
31051 [153][163]8)"(NULL) (NULL)"
31053 [153][163]8)"(NULL)andandandand(NULL)"
31060 [153]"":[133]"was jetzt";a$
31070 [137]14300
31999 [143]"gosubgarage
32000 print"[147]sie stehen vor der garage"
32001 print"[154]":ifga=1then32100
32010 print"[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
32020 fort=1to15:print"[170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][167][167][167]":next
32030 print"[145][145][145][202][198][198][203]"
32040 goto3000
32100 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
32110 print"[180] [170]"
32111 print"[180] [170]"
32112 print"[180] [170]"
32113 print"[180] [170]"
32114 print"[180] [170]"
32115 print"[180] [170]"
32116 print"[180] [170]"
32117 print"[180] [176][196][196][178][196][196][174] [170]"
32118 print"[180] [213].[196][197][144][216][154][197][196].[201] [170]"
32119 print"[180] [221][219][146][154][165][168][166][168][167][219][146][154][221] [144][199][221][200][154][146] [170]"
32120 print"[180] [176][192][174] [166][166][166] [176][192][174] [144][199][221])[146][154] [170]"
32121 print"[180] [202][198][203] [166][166][166] [202][198][203] [144][199][221][200][146][154] [170]"
32122 print"[180] [144][170][214][146][180][154][192][192][183][184][183][192][192][144][167][214][146][165][154] [144][199][221][200][146][154] [170]"
32123 print"[180] [144][170][214][146][180][154] [144][167][214][146][165][154] [144][199][221][200][146][154] [170]"
32124 print" [144][183] [183][154] "
32125 print"auto muelltonne"
32130 m$="[144][157][157][157][197][192][198]":ifmu=1thenm$="[144][205][205]"
32140 print""m$"[154]"
32150 ifsu=0andmu=1andga=1thenprint" in der muelltonne sind zwei alte schuhe"
32160 ifa$="nimm schuhe"andsu=1thenprint" sie haben die schuhe nun an"
32170 goto3000